home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / dev / e / jrhrkrm2.lzh / RKRM_PartTwo / Math / sptrans.e < prev   
Text File  |  1995-09-20  |  895b  |  31 lines
  1. -> sptrans.e - Math SP IEEE Transcendental example of SPCos().
  2.  
  3. ->>> Header (globals)
  4. MODULE 'mathieeesingtrans'
  5.  
  6. ENUM ERR_NONE, ERR_LIB
  7.  
  8. RAISE ERR_LIB IF OpenLibrary()=NIL
  9.  
  10. CONST STRSIZE=10, ACC=5
  11. ->>>
  12.  
  13. ->>> PROC main()
  14. PROC main() HANDLE
  15.   -> E-Note: IEEE single is the format used for reals in E
  16.   -> E-Note: C version gets it wrong: 30 degrees in radians is PI/6=0.52359878
  17.   DEF num1=0.52359878, result, s[STRSIZE]:STRING
  18.   mathieeesingtransbase:=OpenLibrary('mathieeesingtrans.library', 34)
  19.   result:=IeeeSPCos(num1)
  20.   -> E-Note: alternatively, no need to open library, use:  result:=Fcos(num1)
  21.   WriteF('The single precision cosine of 30 degrees is \s\n',
  22.          RealF(s, result, ACC))
  23. EXCEPT DO
  24.   IF mathieeesingtransbase THEN CloseLibrary(mathieeesingtransbase)
  25.   SELECT exception
  26.   CASE ERR_LIB;  WriteF('Error: could not open mathieeesingtrans library\n')
  27.   ENDSELECT
  28. ENDPROC
  29. ->>>
  30.  
  31.